home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n22.arc / PRN2FILE.BAS < prev    next >
BASIC Source File  |  1987-11-25  |  13KB  |  195 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE prn2file.COM
  2. 110 OPEN "prn2file.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  174 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 138048 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   136,     2,    80,    82,    78,    50,    70,   731
  22. 300 DATA     73,    76,    69,    32,    49,    46,    48,    32,   425
  23. 310 DATA     40,    99,    41,    32,    49,    57,    56,    55,   429
  24. 320 DATA     32,    90,   105,   102,   102,    32,    67,   111,   641
  25. 330 DATA    109,   109,   117,   110,   105,    99,    97,   116,   862
  26. 340 DATA    105,   111,   110,   115,    32,    67,   111,    46,   697
  27. 350 DATA     36,    26,    84,   111,   109,    32,    75,   105,   578
  28. 360 DATA    104,   108,   107,   101,   110,    76,    80,    84,   770
  29. 370 DATA     49,    32,    82,   101,   100,   105,   114,   101,   684
  30. 380 DATA     99,   116,   101,   100,    32,   116,   111,    58,   733
  31. 390 DATA     32,    36,    73,   110,   118,    97,   108,   105,   679
  32. 400 DATA    100,    32,   102,   105,   108,   101,   110,    97,   755
  33. 410 DATA    109,   101,    46,    36,    85,   115,    97,   103,   692
  34. 420 DATA    101,    58,    32,    80,    82,    78,    50,    70,   551
  35. 430 DATA     73,    76,    69,    32,    91,   112,    97,   116,   666
  36. 440 DATA    104,    93,    91,   102,   105,   108,   101,   110,   814
  37. 450 DATA     97,   109,   101,    93,    91,    47,    80,   110,   728
  38. 460 DATA     93,    91,    47,    66,   110,   110,    93,    91,   701
  39. 470 DATA     47,    85,    93,    36,    77,   101,   109,   111,   659
  40. 480 DATA    114,   121,    32,    65,   108,   108,   111,    99,   758
  41. 490 DATA     97,   116,   105,   111,   110,    32,    69,   114,   754
  42. 500 DATA    114,   111,   114,    46,    36,    67,    97,   110,   695
  43. 510 DATA    110,   111,   116,    32,    85,   110,   105,   110,   779
  44. 520 DATA    115,   116,    97,   108,   108,    46,    36,    80,   706
  45. 530 DATA     82,    78,    36,    13,    10,    36,    13,    10,   278
  46. 540 DATA     42,    66,   117,   102,   102,   101,   114,    32,   676
  47. 550 DATA     79,   118,   101,   114,   102,   108,   111,   119,   852
  48. 560 DATA     42,    13,    10,     0,     0,     0,     0,     0,    65
  49. 570 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  50. 580 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  51. 590 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  52. 600 DATA      0,     4,     0,     0,     0,    46,    59,    22,   131
  53. 610 DATA    245,     1,   117,     8,    46,   128,    62,   239,   846
  54. 620 DATA      1,     1,   116,     5,    46,   255,    46,   223,   693
  55. 630 DATA      1,   251,    46,   199,     6,   240,     1,    91,   835
  56. 640 DATA      0,    86,   128,   252,     1,   116,    37,    10,   630
  57. 650 DATA    228,   117,    56,    46,   139,    54,   247,     1,   888
  58. 660 DATA     46,    59,    54,   249,     1,   116,    44,    30,   599
  59. 670 DATA     46,   142,    30,   251,     1,   136,     4,    31,   641
  60. 680 DATA     70,    46,   137,    54,   247,     1,   129,   254,   938
  61. 690 DATA      0,     4,   124,    23,    46,   198,     6,   244,   645
  62. 700 DATA      1,     1,    30,    83,    46,   197,    30,   235,   623
  63. 710 DATA      1,   128,    63,     0,    91,    31,   117,     3,   434
  64. 720 DATA    232,   122,     0,    94,   180,   144,   207,   156,  1135
  65. 730 DATA     46,   255,    30,   219,     1,    46,   255,    14,   866
  66. 740 DATA    240,     1,   117,    14,    46,   131,    62,   247,   858
  67. 750 DATA      1,     0,   116,     6,    46,   198,     6,   244,   617
  68. 760 DATA      1,     1,   207,   156,    46,   128,    62,   244,   845
  69. 770 DATA      1,     1,   117,    17,    30,    83,    46,   197,   492
  70. 780 DATA     30,   235,     1,   128,    63,     0,    91,    31,   579
  71. 790 DATA    117,     3,   232,    64,     0,    10,   228,   117,   771
  72. 800 DATA      3,   184,     0,    76,   128,   252,    64,   117,   824
  73. 810 DATA     13,   131,   251,     4,   117,     8,    46,   128,   698
  74. 820 DATA     62,   239,     1,     1,   116,     7,   157,   250,   833
  75. 830 DATA     46,   255,    46,   227,     1,   251,   252,    81,  1159
  76. 840 DATA     82,    86,   139,   242,    46,   139,    22,   245,  1001
  77. 850 DATA      1,   227,     7,   172,   180,     0,   205,    23,   815
  78. 860 DATA    226,   249,    94,    90,    89,   139,   193,   157,  1237
  79. 870 DATA    248,   251,   202,     2,     0,    80,    83,    81,   947
  80. 880 DATA     82,    30,     6,    14,    31,   198,     6,   244,   611
  81. 890 DATA      1,     0,   184,    36,    53,   232,   129,     0,   635
  82. 900 DATA     83,     6,   186,   114,     3,   184,    36,    37,   649
  83. 910 DATA    232,   118,     0,   131,    62,   247,     1,     0,   791
  84. 920 DATA    116,    90,   186,   106,     6,   184,     2,    61,   751
  85. 930 DATA    232,   102,     0,   114,    16,   139,   216,    51,   870
  86. 940 DATA    201,    51,   210,   184,     2,    66,   232,    88,  1034
  87. 950 DATA      0,   114,    60,   235,    17,    61,     2,     0,   489
  88. 960 DATA    117,    58,   185,    32,     0,   180,    60,   232,   864
  89. 970 DATA     71,     0,   114,    43,   139,   216,   186,     0,   769
  90. 980 DATA      0,   139,    14,   247,     1,   180,    64,    30,   675
  91. 990 DATA    142,    30,   251,     1,   232,    50,     0,    31,   737
  92. 1000 DATA   114,    21,    59,   200,   117,    17,    59,    14,   601
  93. 1010 DATA   249,     1,   117,    11,   186,   198,     1,   185,   948
  94. 1020 DATA    21,     0,   180,    64,   232,    26,     0,   180,   703
  95. 1030 DATA    62,   232,    21,     0,   199,     6,   247,     1,   768
  96. 1040 DATA     0,     0,    31,    90,   184,    36,    37,   232,   610
  97. 1050 DATA     7,     0,     7,    31,    90,    89,    91,    88,   403
  98. 1060 DATA   195,   156,   250,    46,   255,    30,   227,     1,  1160
  99. 1070 DATA   251,   195,   251,    50,   192,    46,   162,   239,  1386
  100. 1080 DATA     1,   207,   251,    46,   128,    62,   244,     1,   940
  101. 1090 DATA     0,   116,     3,   232,    79,   255,    46,   255,   986
  102. 1100 DATA    46,   231,     1,   186,     3,     1,   232,   156,   856
  103. 1110 DATA     1,   247,    22,     0,     1,    51,   219,   140,   681
  104. 1120 DATA   200,    67,    59,   195,   142,   195,   116,    40,  1014
  105. 1130 DATA   190,     0,     1,   139,   254,   185,    16,     0,   785
  106. 1140 DATA   243,   166,    11,   201,   117,   235,    38,   198,  1209
  107. 1150 DATA     6,   239,     1,     1,    38,   139,    22,   245,   691
  108. 1160 DATA     1,   137,    22,   245,     1,   180,     1,   205,   792
  109. 1170 DATA    23,   128,   194,    49,   136,    22,    64,     1,   617
  110. 1180 DATA   140,     6,   242,     1,    14,     7,   128,    62,   600
  111. 1190 DATA    80,     0,     0,   116,    99,   176,    47,   232,   750
  112. 1200 DATA    95,     1,   242,   174,   227,   108,   138,     5,   990
  113. 1210 DATA   199,    69,   255,    32,    32,    12,    32,    60,   691
  114. 1220 DATA   112,   116,    55,    60,    98,   116,    13,    60,   630
  115. 1230 DATA   117,   116,     6,   186,   100,     1,   233,     4,   763
  116. 1240 DATA     1,   233,   238,     1,   199,     6,   249,     1,   928
  117. 1250 DATA     0,     0,   161,   249,     1,   179,    10,   246,   846
  118. 1260 DATA   227,    71,   138,    29,   128,   235,    48,   114,   990
  119. 1270 DATA   196,   128,   251,     9,   119,   191,   198,     5,  1097
  120. 1280 DATA    32,    50,   255,     3,   195,   163,   249,     1,   948
  121. 1290 DATA   235,   224,    71,   138,     5,   198,     5,    32,   908
  122. 1300 DATA   162,    64,     1,    44,    49,    50,   228,    60,   658
  123. 1310 DATA     3,   115,   192,   163,   245,     1,   235,   157,  1111
  124. 1320 DATA   186,    61,     1,   180,     9,   205,    33,   186,   861
  125. 1330 DATA   191,     1,   232,   232,     0,   176,     0,   233,  1065
  126. 1340 DATA   209,     0,   131,    62,   249,     1,     1,   114,   767
  127. 1350 DATA   162,   131,    62,   249,     1,    64,   119,   155,   943
  128. 1360 DATA   176,    32,   232,   220,     0,   243,   174,   227,  1304
  129. 1370 DATA   215,   128,    61,    58,   117,    10,    79,   138,   806
  130. 1380 DATA     5,   199,     5,    32,    32,   235,     7,   144,   659
  131. 1390 DATA   180,    25,   205,    33,     4,    65,   180,    58,   750
  132. 1400 DATA   163,   106,     6,   176,    92,   162,   108,     6,   819
  133. 1410 DATA   232,   182,     0,   242,   174,   227,     6,   191,  1254
  134. 1420 DATA   108,     6,   235,    37,   144,   138,    22,   106,   796
  135. 1430 DATA     6,   128,   226,   223,   128,   234,    64,   190,  1199
  136. 1440 DATA   109,     6,   139,   254,   180,    71,   205,    33,   997
  137. 1450 DATA   114,    88,   176,     0,    56,     5,   116,     9,   564
  138. 1460 DATA   185,    64,     0,   242,   174,   198,    69,   255,  1187
  139. 1470 DATA    92,    87,   176,    32,   232,   130,     0,   243,   992
  140. 1480 DATA   174,   139,   247,    78,    95,   172,    60,    32,   997
  141. 1490 DATA   116,     7,    60,    13,   116,     3,   170,   235,   720
  142. 1500 DATA   244,    87,   198,     5,    36,   186,    61,     1,   818
  143. 1510 DATA   180,     9,   205,    33,   186,   106,     6,   232,   957
  144. 1520 DATA    83,     0,    95,   198,     5,     0,   186,   106,   673
  145. 1530 DATA     6,   184,     0,    61,   205,    33,   114,     9,   612
  146. 1540 DATA   139,   216,   180,    62,   205,    33,   235,    18,  1088
  147. 1550 DATA   144,   185,    32,     0,   180,    60,   205,    33,   839
  148. 1560 DATA   115,   238,   186,    82,     1,   232,    45,     0,   899
  149. 1570 DATA   205,    32,   142,     6,   242,     1,   255,    54,   937
  150. 1580 DATA   245,     1,    38,   143,     6,   245,     1,   191,   870
  151. 1590 DATA   106,     6,   139,   247,   185,   128,     0,   243,  1054
  152. 1600 DATA   164,   176,     1,   140,   201,    59,    14,   242,   997
  153. 1610 DATA     1,   142,     6,   242,     1,    38,   162,   239,   831
  154. 1620 DATA     1,   116,    25,   205,    32,   180,     9,   205,   773
  155. 1630 DATA    33,   186,   195,     1,   180,     9,   205,    33,   842
  156. 1640 DATA   195,   191,   128,     0,    46,   138,    13,    50,   761
  157. 1650 DATA   237,    71,   252,   195,   187,   234,     6,   131,  1313
  158. 1660 DATA   195,    15,   177,     4,   211,   235,   180,    74,  1091
  159. 1670 DATA   205,    33,   115,     5,   186,   148,     1,   235,   928
  160. 1680 DATA   164,   139,    30,   249,     1,   177,     6,   211,   977
  161. 1690 DATA   227,   180,    72,   205,    33,   114,   237,   163,  1231
  162. 1700 DATA   251,     1,   161,   249,     1,   177,    10,   211,  1061
  163. 1710 DATA   224,    11,   192,   117,     1,    72,   163,   249,  1029
  164. 1720 DATA     1,   180,    52,   205,    33,   137,    30,   235,   873
  165. 1730 DATA     1,   140,     6,   237,     1,   184,     8,    53,   630
  166. 1740 DATA   205,    33,   137,    30,   219,     1,   140,     6,   771
  167. 1750 DATA   221,     1,   186,    95,     2,   184,     8,    37,   734
  168. 1760 DATA   205,    33,   184,    23,    53,   205,    33,   137,   873
  169. 1770 DATA    30,   223,     1,   140,     6,   225,     1,   186,   812
  170. 1780 DATA   253,     1,   184,    23,    37,   205,    33,   184,   920
  171. 1790 DATA    33,    53,   205,    33,   137,    30,   227,     1,   719
  172. 1800 DATA   140,     6,   229,     1,   186,   123,     2,   184,   871
  173. 1810 DATA    33,    37,   205,    33,   184,    40,    53,   205,   790
  174. 1820 DATA    33,   137,    30,   231,     1,   140,     6,   233,   811
  175. 1830 DATA     1,   186,   122,     3,   184,    40,    37,   205,   778
  176. 1840 DATA    33,   161,    44,     0,   142,   192,   180,    73,   825
  177. 1850 DATA   205,    33,   186,   111,     0,   184,     0,    49,   768
  178. 1860 DATA   205,    33,   176,     8,   232,   111,     0,   117,   882
  179. 1870 DATA   103,   176,    23,   232,   104,     0,   117,    96,   851
  180. 1880 DATA   176,    33,   232,    97,     0,   117,    89,   176,   920
  181. 1890 DATA    40,   232,    90,     0,   117,    82,   142,     6,   709
  182. 1900 DATA   242,     1,    38,   197,    22,   219,     1,   184,   904
  183. 1910 DATA     8,    37,   205,    33,    38,   197,    22,   223,   763
  184. 1920 DATA     1,   184,    23,    37,   205,    33,    38,   197,   718
  185. 1930 DATA    22,   227,     1,   184,    33,    37,   205,    33,   742
  186. 1940 DATA    38,   197,    22,   231,     1,   184,    40,    37,   750
  187. 1950 DATA   205,    33,    38,   142,     6,   251,     1,   180,   856
  188. 1960 DATA    73,   205,    33,   114,    21,    46,   142,     6,   640
  189. 1970 DATA   242,     1,    38,   247,    22,     0,     1,   180,   731
  190. 1980 DATA    73,   205,    33,   114,     5,   184,     0,    76,   690
  191. 1990 DATA   205,    33,   186,   148,     1,   233,   165,   254,  1225
  192. 2000 DATA   186,   173,     1,   233,   159,   254,   180,    53,  1239
  193. 2010 DATA   205,    33,   140,   192,    46,    59,     6,   242,   923
  194. 2020 DATA     1,   195,     0,     0,     0,     0,     0,     0,   196
  195.